home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zi.d64 / proc.add'helps < prev    next >
Text File  |  2007-03-01  |  286b  |  14 lines
  1. 0010 ╨╥╧├ ADD'HELPS(N) ├╠╧╙┼─
  2. 0020   ╒╙┼ TEXT
  3. 0030   
  4. 0040   ─╔═ SCREEN$ ╧╞ 1505
  5. 0050   
  6. 0060   REWRITE
  7. 0070   ╞╧╥ T:=1 ╘╧ N ─╧
  8. 0080     ╧╨┼╬ ╞╔╠┼ 1,"HELP"+╙╘╥$(T),╥┼┴─
  9. 0090     ╥┼┴─ ╞╔╠┼ 1: SCREEN$
  10. 0100     WRITELN(SCREEN$)
  11. 0110     ├╠╧╙┼ ╞╔╠┼ 1
  12. 0120   ┼╬─╞╧╥ T
  13. 0130 ┼╬─╨╥╧├ ADD'HELPS
  14.